load(file = "C:/Users/jazmi/OneDrive/Escritorio/SOFTWARE_2/datos/accidentes2020_data.rda") library(tidyverse) accidentes_tb <- as_tibble(accidentes2020_data)
resumen <- accidentes_tb |> count(sexo) resumen
# A tibble: 3 × 2 sexo n <chr> <int> 1 Desconocido 3806 2 Hombre 19627 3 Mujer 8994
ggplot(resumen) + geom_col(aes(x = sexo, y = n, fill = sexo), alpha = 0.4) + ggthemes::scale_fill_colorblind()